home *** CD-ROM | disk | FTP | other *** search
/ MacWorld Secrets (4th Edition) / Mac Secrets CD 4th Ed.toast / Apple Advanced Technologies / Apple Speech Technologies 1.5 / Netscape Demos / ShockTalk Demo / USCQ.dcr / 00011_toggleQuiz.ls < prev    next >
Encoding:
Text File  |  1996-04-15  |  597 b   |  24 lines
  1. global kStartQuiz
  2.  
  3. on mouseDown
  4.   set startCast to the castNum of sprite kStartQuiz
  5.   if startCast = the number of cast "start.pic" then
  6.     set swapCast to the number of cast "stop.pic"
  7.   else
  8.     set swapCast to the number of cast "start.pic"
  9.   end if
  10.   repeat while the stillDown
  11.     if rollOver(5) then
  12.       set the castNum of sprite kStartQuiz to swapCast
  13.     else
  14.       set the castNum of sprite kStartQuiz to startCast
  15.     end if
  16.     updateStage()
  17.   end repeat
  18.   if rollOver(5) then
  19.     set the castNum of sprite kStartQuiz to swapCast
  20.     updateStage()
  21.     toggleListening()
  22.   end if
  23. end
  24.